home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / 2.1 lines.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  254 b   |  16 lines
  1.  
  2. SCREEN 1,320,200,5,1
  3. WINDOW 2,"This is as colorful as it gets",,23,1
  4. FOR x=1 TO 7
  5. FOR y = 0 TO 3
  6. co=x+y*8
  7. LINE (x*38,y*45)-((x+1)*38,(y+1)*45),co,bf
  8. NEXT y,x
  9. WHILE INKEY$=""
  10. PALETTE INT(31*RND)+1,RND,RND,RND
  11. WEND
  12. WINDOW CLOSE 2
  13. SCREEN CLOSE 2
  14. WINDOW 1
  15.  
  16.